home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / graphics / n-z / raystorexa / arexx / title1.ray < prev    next >
Text File  |  1995-10-21  |  809b  |  46 lines
  1. /***************
  2.  * NAME:          title.ray
  3.  * VERSION:       1.0 21.07.1995
  4.  * DESCRIPTION:   This ARexx-programm renders the RayStorm title
  5.  * AUTHORS:      Andreas Heumann
  6.  * BUGS:          none
  7.  * TO DO:         none
  8.  * HISTORY:       DATE       NAME    COMMENT
  9.  *          21.07.95 ah    first release
  10.  ***************/
  11.  
  12. signal on error
  13.  
  14. options results
  15.  
  16. IF ~show('P','RAYSTORM') THEN DO
  17.     address COMMAND 'run >NIL: <NIL: /RayStorm'
  18.     address COMMAND WaitForPort RAYSTORM
  19. END  
  20.  
  21. address RAYSTORM
  22.  
  23. 'OBJECTPATH /objects'
  24.  
  25. 'SETSCREEN 160 128'
  26. 'SETCAMERA <0,300,-500> <0,0,0> <0,1,0> 56.25 45'
  27. 'SETWORLD [0,0,0] [30,30,30]'
  28. 'POINTLIGHT <0,0,-700>'
  29.  
  30. 'LOADOBJ title_light.iob'
  31. 'LOADOBJ title.iob'
  32.  
  33. 'STARTRENDER'
  34.  
  35. 'SAVEPIC title1.iff'
  36.  
  37. 'CLEANUP'
  38.  
  39. exit 0
  40.  
  41. error:
  42. say "Error" rc "in line" sigl ":"
  43. GETERRORSTR rc
  44. say result
  45. exit 0
  46.